home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / epmgcc30.zip / GCCACTN.E < prev    next >
Text File  |  1996-06-22  |  15KB  |  359 lines
  1. /*
  2. ╔══════════════════════════════════════════════════════════════════════════════╗
  3. ║ What's it called: EPMGCC  V3.00                                              ║
  4. ║                                                                              ║
  5. ║ What does it do:  The E source code for the GCC-Interface for EPM.           ║
  6. ║                   This file contains the command definitions for the         ║
  7. ║                   toolbar-support for EPMGCC.                                ║
  8. ║                   Note: Add the line                                         ║
  9. ║                           gccactn                                            ║
  10. ║                         to your ACTIONS.LST file.                            ║
  11. ║                                                                              ║
  12. ║ Who and When:     B. Bablok 12/93 - 07/96                                    ║
  13. ║                                                                              ║
  14. ╚══════════════════════════════════════════════════════════════════════════════╝
  15. */
  16.  
  17. CONST
  18.    WANT_DYNAMIC_PROMPTS = 1  -- Force definition of menu prompts in ENGLISH.E.
  19.    GCC_ACTION = 'GCC Actions'
  20.  
  21. INCLUDE 'gccconst.e'
  22. INCLUDE 'stdconst.e'
  23. INCLUDE 'english.e'
  24. INCLUDE 'menuhelp.h'
  25. /*
  26. ┌──────────────────────────────────────────────────────────────────────────────┐
  27. │  Building actionlist lines                                                   │
  28. └──────────────────────────────────────────────────────────────────────────────┘
  29. */
  30. DEFC gccactn_actionlist
  31.    UNIVERSAL ActionsList_FileID  -- This is the fileid that gets the line(s)
  32.  
  33. INSERTLINE "gccOpenProject"GCC_OPEN__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  34. INSERTLINE "gccSelectProject"GCC_SEL__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  35. INSERTLINE "gccEditProject"GCC_EDIT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  36. INSERTLINE "gccCloseProject"GCC_CLOSE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  37. INSERTLINE "gccSetCompOptions"GCC_COMP_OPT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  38. INSERTLINE "gccCompileFile"GCC_COMP__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  39. INSERTLINE "gccSetMakeOptions"GCC_BUILD_OPT__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  40. INSERTLINE "gccBuildProject"GCC_BUILD__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  41. INSERTLINE "gccViewResults"GCC_VIEW__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  42. INSERTLINE "gccRunExe"GCC_RUN__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  43. INSERTLINE "gccDebugExe"GCC_DEBUG__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  44. INSERTLINE "gccToggleDebugMode"GCC_DEBUGMODE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  45. INSERTLINE "gccToggleAutosaveMode"GCC_AUTOSAVE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  46. INSERTLINE "gccToggleVerboseMode"GCC_VERBOSE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  47. INSERTLINE "gccToggleRemoveMode"GCC_REMOVE__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  48. INSERTLINE "gccPrevErr"GCC_PREV_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  49. INSERTLINE "gccCurrErr"GCC_CURR_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  50. INSERTLINE "gccNextErr"GCC_NEXT_ERR__MSG"gccactn", ActionsList_FileID.last+1, ActionsList_FileID
  51. /*
  52. ┌──────────────────────────────────────────────────────────────────────────────┐
  53. │  Command definitions (toolbar commands)                                      │
  54. └──────────────────────────────────────────────────────────────────────────────┘
  55. */
  56. DEFC gccOpenProject =
  57.    PARSE ARG action_letter parms
  58.    IF action_letter = 'I' THEN       -- button Initialized
  59.       DISPLAY -8
  60.       SAYERROR GCC_OPEN__MSG
  61.       DISPLAY 8
  62.    ELSEIF action_letter = 'S' THEN   -- button Selected
  63.       SAYERROR 0                        -- Clear prompt
  64.       'gcc_open_project'                -- execute action
  65.    ELSEIF action_letter = 'H' THEN   -- button Help
  66.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_OPEN__MSG,
  67.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  68.    ELSEIF action_letter = 'E' THEN   -- button End
  69. ;;    SAYERROR 0
  70.    ENDIF
  71.  
  72. DEFC gccSelectProject =
  73.    PARSE ARG action_letter parms
  74.    IF action_letter = 'I' THEN       -- button Initialized
  75.       DISPLAY -8
  76.       SAYERROR GCC_SEL__MSG
  77.       DISPLAY 8
  78.    ELSEIF action_letter = 'S' THEN   -- button Selected
  79.       SAYERROR 0                        -- Clear prompt
  80.       'gcc_select_project'                -- execute action
  81.    ELSEIF action_letter = 'H' THEN   -- button Help
  82.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_SEL__MSG,
  83.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  84.    ELSEIF action_letter = 'E' THEN   -- button End
  85. ;;    SAYERROR 0
  86.    ENDIF
  87.  
  88. DEFC gccEditProject =
  89.    PARSE ARG action_letter parms
  90.    IF action_letter = 'I' THEN       -- button Initialized
  91.       DISPLAY -8
  92.       SAYERROR GCC_EDIT__MSG
  93.       DISPLAY 8
  94.    ELSEIF action_letter = 'S' THEN   -- button Selected
  95.       SAYERROR 0                        -- Clear prompt
  96.       'gcc_edit_project'                -- execute action
  97.    ELSEIF action_letter = 'H' THEN   -- button Help
  98.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_EDIT__MSG,
  99.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  100.    ELSEIF action_letter = 'E' THEN   -- button End
  101. ;;    SAYERROR 0
  102.    ENDIF
  103.  
  104. DEFC gccCloseProject =
  105.    PARSE ARG action_letter parms
  106.    IF action_letter = 'I' THEN       -- button Initialized
  107.       DISPLAY -8
  108.       SAYERROR GCC_CLOSE__MSG
  109.       DISPLAY 8
  110.    ELSEIF action_letter = 'S' THEN   -- button Selected
  111.       SAYERROR 0                        -- Clear prompt
  112.       'gcc_close_project'                -- execute action
  113.    ELSEIF action_letter = 'H' THEN   -- button Help
  114.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_CLOSE__MSG,
  115.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  116.    ELSEIF action_letter = 'E' THEN   -- button End
  117. ;;    SAYERROR 0
  118.    ENDIF
  119.  
  120. DEFC gccSetCompOptions =
  121.    PARSE ARG action_letter parms
  122.    IF action_letter = 'I' THEN       -- button Initialized
  123.       DISPLAY -8
  124.       SAYERROR GCC_COMP_OPT__MSG
  125.       DISPLAY 8
  126.    ELSEIF action_letter = 'S' THEN   -- button Selected
  127.       SAYERROR 0                        -- Clear prompt
  128.       IF gcc_is_cc_file() THEN
  129.         'gcc_set_comp_options'
  130.       ELSE
  131.         SAYERROR 'No c/cc-file'
  132.       ENDIF
  133.    ELSEIF action_letter = 'H' THEN   -- button Help
  134.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_COMP_OPT__MSG,
  135.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  136.    ELSEIF action_letter = 'E' THEN   -- button End
  137. ;;    SAYERROR 0
  138.    ENDIF
  139.  
  140. DEFC gccCompileFile =
  141.    PARSE ARG action_letter parms
  142.    IF action_letter = 'I' THEN       -- button Initialized
  143.       DISPLAY -8
  144.       SAYERROR GCC_COMP__MSG
  145.       DISPLAY 8
  146.    ELSEIF action_letter = 'S' THEN   -- button Selected
  147.       SAYERROR 0                        -- Clear prompt
  148.       IF gcc_is_cc_file() THEN
  149.         'gcc_compile_file'
  150.       ELSE
  151.         SAYERROR 'cannot compile' .filename
  152.       ENDIF
  153.    ELSEIF action_letter = 'H' THEN   -- button Help
  154.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_COMP__MSG,
  155.                                                MB_OK+MB_INFORMATION+MB_MOVEABLE)
  156.    ELSEIF action_letter = 'E' THEN   -- button End
  157. ;;    SAYERROR 0
  158.    ENDIF
  159.  
  160. DEFC gccSetMakeOptions =
  161.    PARSE ARG action_letter parms
  162.    IF action_letter = 'I' THEN       -- button Initialized
  163.       DISPLAY -8
  164.       SAYERROR GCC_BUILD_OPT__MSG
  165.       DISPLAY 8
  166.    ELSEIF action_letter = 'S' THEN   -- button Selected
  167.       SAYERROR 0                        -- Clear prompt
  168.       IF gcc_project_open() THEN
  169.         'gcc_set_make_options'
  170.       ELSE
  171.         SAYERROR 'no project open'
  172.       ENDIF
  173.    ELSEIF action_letter = 'H' THEN   -- button Help
  174.       CALL WINMESSAGEBOX(GCC_ACTION,GCC_BUILD_OPT__